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-- Makelmage.Mesa Edited by Sandman on October 6, 1977 5:35 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AUoFHeDefs: FROM "altof iledefs" , 
BcdDeTs: FROM "BcdDefs". 
BcdMergeDefs: FROM "BcdMergeDefs" , 
BcdTabDefs: FROM "bcdtabdef s" , 
BcdTableDefs: FROM "bcdtabledefs" . 
BFSDefs: FROM "bfsdefs", 
BootDefs: FROM "bootdefs". 
ControlDefs: FROM "controldef s" , 
CoreSwapDefs : FROM "coreswapdefs" , 
DirectoryDefs: FROM "di rectorydef s" , 
DiskDefs: FROM "diskdefs", 
DiskKDOefs: FROM "d i skkddef s" . 
FrameDefs: FROM "f ramedeTs" , 
ImageOers: FROM " imagedef s" , 
InlineDefs: FROM " in! inedef s" , 
LoaderBcdUtilDefs: FROM "LoaderBcdUti IDef s" . 
LoadStateDefs: FROM "LoadStateDef s" . 
MakeTmagellt i IDefs : FROM "makeimageuti Idefs" , 
MiscDefs: FROM "miscdefs", 
OsStaticDefs: FROM "osstaticdefs" , 
ProcessDefs: FROM "processdef s" , 
SegmentDefs: FROM "segmentdef s" , 
StreamDefs: FROM "streamdefs" , 
StringDefs: FROM "s tr i ngdef s" . 
SystemDefs: FROM "systemdef s" , 
TimeOefs: FROM "timedefs"; 

DEFINITIONS FROM 

LoadStateDefs, DiskDefs, ImageDefs. ControlDefs, SegmentDefs, Makelmagellti IDefs ; 

Makelmage: PROGRAM 

IMPORTS BcdMergeDefs, BcdTabDefs, BcdTableDefs, BFSDefs, BootDefs, CoreSwapDef s , 
DirectoryDefs, DiskDefs, DiskKDDefs, FrameDefs, ImageDefs, LoaderBcdUtilDefs, 
LoadStateDefs, MiscDefs, SegmentDefs, StreamDefs, StringDefs, SystemDefs, 
MakelmageUtilDefs 

EXPORTS ImageDefs SHARES ProcessDefs, DiskDefs, SegmentDefs, ControlDefs, ImageDefs •- 

BEGIN 

CFA: TYPE = Al toF i 1 eDef s . CFA; 

DataSegmentHandle : TYPE = SegmentDefs .DataSegmen tHandl e ; 

FP: TYPF = AltoFileDefs.FP; 

FileHandle: TYPE = SegmentDefs . F i 1 eHandl e; 

FileSegmentHandle: TYPE = SegmentDefs . F i leSegmen tHandl e; 

PageCount: TYPF = Al toDef s . PageCoun t : 

PageNumber: TYPE = Al toDef s . PageNumber; 

ProcessRegis ter: TYPE = ProcessDefs .ProcessRegi ster; 

ProcessHandl e : TYPE = ProcessDefs . ProcessHandle ; 

ProcessVector : TYPE = ProcessDefs . ProcessVector ; 

shortF ileRequest: TYPE = short ImageDefs . F i 1 eRequest ; 

vDA: lYPE = Al toF i 1 eDef s . vDA ; 

GlobalframeHandle: TYPE = ControlDefs .Global FrameHandl e ; 

LoadStateGFT: TYPE = LoadStateDef s . LoadStateGFT ; 

Configlndex: TYPE = LoadS tateDef s , Conf iglndex ; 

StreamHandle: TYPE = S treamDef s .S treamHandle ; 

ProcDesc: TYPE = ControlDefs . ProcDesc : 

-- Bed Merging Management 

MergeAllBcds: PROCFDURF [initialgft: LoadStateGFT, code, symbols: BOOLEAN, 
names: OrSCRIPTOR FOR ARRAY OF STRING] = 
BEGIN OPEN I oadStateDefs. BcdMergeDefs; 
Mergel oadedBcds: PROCEDURE [config: Configlndex. addr: BcdAddress] RETURNS [BOOl FAN] 

BEGIN OPEN LoaderBcdUtilDefs. LoadStateDefs: 

rel: Relocation ♦- In 1 1 i al izeRolocat ion[conf ig] ; 

bcdseg: E i leSegmoiUHnnd 1 e ♦- BcdSegEromLoadS La te[conf i g] ; 

bed: BcdBase *- Se tUpBcd[bcdseg] ; 

MergeBcd[bcd , rel. 0, initialgft, code, symbols. names[conf ig] ] ; 

ReleaseBcdSeg[bcdseg] ; 

ReleaseRel ocat ion[rel ] ; 

RETURN [FALSE]; 

END; 
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MergeCopiedFrames: PROCEDURE [frame: GlobalFrameHandle] RETURNS [BOOLEAN] = 
BEGIN 

copied: GlobalFrameHandle; 
config: Configlndex; 
ModuleCopiedFrom: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN] = 

BEGIN 

RETURN [f # frame AND f . codesegment = frame. codesegment AND 

(config *- MapRealToConf ig[f. gftindex. gftindex] . config) ff ConfigNuU]; 

END; 
IF MapRealToConfig[frame. gftindex. gftindex]. config # ConrigNull THEN RETURN [FALSE]; 
IF (copied*-FrameDefs.EnumerateGlobalFrames[ModuleCopiedFrom]) # NULLFrame THEN 

BEGIN 

MergeModule[f rame, copied, initialgft]; 

RETURN [FALSE]; 

END; 
RETURN [FALSE]; 
END; 

Initial izeMerge[TableSize, NumberGFIInConf ig[ini tialgf t , 0]]; 

[] ♦- EnumerateLoadStateBcds[recentlast , MergeLoadedBcds] ; 

[] ♦- FrameDef s . EnumerateGlobal Frames[MergeCopiedFrames] ; 

[] ♦- MergedBcdSi2e[]; 

WriteMergedBcd[MoveWords] ; 

Final izeMerge[] ; 

END; 

MergeABcd: PROCEDURE [config: Configlndex, initgft: LoadS tateGFT , code, symbols: BOOLEAN, 
names: DESCRIPTOR FOR ARRAY OF STRING] = 

BEGIN OPEN BcdMergeDefs, LoaderBcdUti IDefs . LoadStateDef s ; 
rel : Relocation ♦- Initial izeRelocation[conf ig] ; 
bcdseg: Fi leSegmentHandl e ♦- BcdSegFromLoadState[conf ig] ; 
bed: BcdBase ♦- SetUpBcd[bcdseg] ; 

Initial izeMerge[bcdseg . pages+1 , NumberGFIInConf ig[ initgft, config]]; 
MergeBcd[bcd , rel, config. initgft, code, symbols, names[conf ig]] ; 
ReleaseBcdSeg[bcdseg]; 
ReleaseRelocation[rel] ; 
[] ♦- MergedBcdS-'i!e[]; 
Wri teMergedBcd[MoveWords] ; 
Final izeMerge[] ; 
END; 

MoveWords: PROCEDURE [source: POINTER, nwords: CARDINAL] = 
BEGIN 
IF nwords ^ S treamDef s . Wr i teBl ock[s tream: bcdstream, address: source, words: nwords] 

THEN ERROR; 
END; 

NewBcdSegmentFromStream: PROCEDURE [stream: StreamDef s . DiskHandl e, page: PageNumber] 
RETURNS [newpage: PageNumber, seg: Fi leSegmentHandle] = 
BEGIN 

index: S treamDefs . Streamlndex ; 
index ♦• StreamDef s .Getlndex[stream] ; 
IF index. byte ff THEN 

BEGIN 

index .byte ♦- 0; 

index. page *- index. page + 1; 

StreamDef s .Setlndex[s tream. index]; 

END; 
seg ♦- NewFileSegment[stream. f i le, page+1, index .page-page, Read+Write]; 
seg . class ^ bed ; 

maxbcdsize *- MAX[maxbcds ize, seg. pages]; 
newpage ♦- index. page; 
RETURN 
END; 

MapSegmentsInBcd: PROCFDURE [ 
iniLialGFT: I oadS tateGFT , config: Configlndex, bcdseg: f i 1 eSegmen tHandle] 
RfTURNS [unresolved, exports: BOO! CAN] = 
BfGIN OPTN loaderBcdUt ilDefs, I oadS tateDef s ; 
bed: BcdBase *- Se tUpBcd[bcdseg] : 

MapSegments: PROCCDURr [mtb: CARDINAL, mti: BedOef s . MTIndex] RETURNS [BOOl CAN] = 
BEGIN OPFN m: mtb-+-mti ; 
f r ame : G 1 o b a 1 F r ame 1 1 a n d 1 e ; 
r g f i : G F T I n d e x ; 
FOR rgfi IN [0 . . ( RrGISTrR[Snreg] + sGrTl.eng th ) t ) DO 

If in itiaKiFT[rgri] - [config: config. gfi: m.gfi] THEN EXIT; 
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ENDLOOP; 
IF m.cseg.file = BcdDef s . FTSelf THEN 
BEGIN 

frame ^ LOOPHOLE[REGISTERCGFTreg] . gf tp3t[rgfi] . frame; 
m.cseg.base ♦- frame . codesegment. base; 
END; 
IF m.sseg.file = BcdDef s. FTSelf THEN 
BEGIN 

frame ♦• LOOPHOLE[REGISTERCGFTreg] . gf tp]t[rgfi] . frame; 

IF frame. symbolsegment U NIL THEN m.sseg.base <- frame. symbolsegment. base; 
END; 
RETURN[FALSE]; 
END; 
[] ♦• EnumerateModu1eTable[bcd , MapSegments] ; 
unresolved ♦• bcd.nlmports f^ 0; 
exports ♦" bcd.nExports # 0; 
Unlock[bCdseg]; 
SwapOut[bcdseg]; 
END; 

TableSize: CARDINAL = 15*AUoDef s . PageSize; 
bcdstream: StreamDef s .DiskHandle; 
maxbcdsize: CARDINAL ♦• 0; 

DisplayHeader: POINTER TO WORD = L0OPHOLE[420B] ; 
DIW: POINTER TO WORD = L00PH0LE[421B] ; 

SwapTrapOuringMakelmage: PUBLIC SIGNAL = CODE; 

SwapErrorOuringMakelmage: PUBLIC SIGNAL = CODE; 

SwapOutOuringMakelmage: PUBLIC SIGNAL = CODE; 

SwapTrapError: PROCEDURE [dest: ControlDef s . ControlLink] = 
BEGIN 

s: ControlDefs.StateVector; 
s ^ STATE; 

SIGNAL SwapTrapOuringMakelmage; 
RETURN WITH s; 
END; 

SwapOutError : SegmentDefs .SwappingProcedure = 
BEGIN 

SIGNAL SwapOutOuringMakelmage; 
RETURN[TRUE]: 
END; 

-- File Segment Transfer Routines 

bufferseg: DataSegmentHandle; 
bufrer: POINTER; 
BufferPages: PageCount; 

SwapDR: TYPE = POINTER TO swap DiskRequest; 

TransferPages: PROCEDURE [ 
da: vDA. base: PageNumber, pages: PageCount, f p : POINTER TO FP, sdr: SwapDR] 
RETURNS [next: vDA] = 
BEGIN OPEN DiskDefs; 
sdr . da ♦• @da ; 
sdr .firs tPage ♦- base ; 
sdr.lastPage ♦- base+pages-1 ; 
sdr . fp ♦- fp; 

IF SwapPages[sdr].page n base+pages-1 THEN SIGNAL SwapErrorDur ingMakelmage; 
nex L ♦- sdr . desc . next ; 
RrTURN[next]; 
END; 

TransferFlleSegment: PROCEDURE [ 
buffer: POINTfR. seg: f il eSegmen tHandl e . file: FileMandle. base: PageNumber, fileda: vDA] 
RfTURNS [vDA] = 
BfGIN 

dpd: Di skPageDesc ; 
sdr: swap DiskRequest; 
old: FileHandle ♦- seg, file; 
segbase: PageNumber ^ seg. base; 
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pages: PageCount ♦- seg. pages; 

segda: vDA ♦• seg. hint, da; 

seg .base *- base; 

sdr ^ [ca: buffer, da:, firstPage:, lastPage:, fp:, fixedCA: FALSE, action: 

lastAction:, signalCheckError : FALSE, option: swap[desc: @dpd]]; 
IF seg.swappedin THEN 
BEGIN 

sdr.ca ♦• SegmentDefs .AddressFromPage[seg .VMpage] ; 
sdr. action ♦- sdr. lastAction ♦• WriteO; 

fileda ^ TransferPages[f ileda, base, pages, Qfile.fp, Qsdr]; 
old . swapcount <- old. swapcount - 1; 
f ile.swapcount ♦• file, swapcount + 1; 
END 
ELSE 
BEGIN 

WHILE BufferPages < pages DO 
pages *- pages - BufferPages; 
sdr. action ♦- sdr . 1 astAc t ion ♦- ReadD; 

segda ♦- TransferPages[segda, segbase. BufferPages, Qold.fp, 0sdr]; 
sdr. action ♦- sdr. 1 astAct ion ♦- WriteD; 

fileda ♦- TransferPages[fileda, base, BufferPages, Qfile.fp, Qsdr]; 
segbase ♦- segbase + BufferPages; 
base ♦- base + BufferPages; 
ENDLOOP; 
sdr. action ♦- sdr . lastAction ♦- ReadD; 

segda ♦• TransferPages[sGgda, segbase, pages, Qold.fp, Qsdr]; 
sdr. action ♦- sdr . 1 astAction ♦• WriteD; 

fileda ♦- TransferPages[f ileda. base, pages, Qfile.fp, Qsdr]; 
END; 
old.segcount ^ old.segcount - 1; 
seg .file ♦• file; 

seg. hint ♦- Fi leHint[Al toFileDefs .eofDA, 0]; 
f j le. segcount ♦- f i le. segcount + 1; 
IF old.segcount = THEN Rel easeFi 1 e[ol d] ; 
RETURN [fileda]; 
END; 

EnumerateNeededModules: PROCEDURE [proc: PROCEDURE [ProcDesc]] = 
BEGIN 

proc[ LOOPHOLE [EnumerateNeededModules]] ; 
proc[LOOPHOLE[MakeImageUtilDefs.AddFileRequest]]; 
proc[LOOPflOLE[BFSDefs.ActOnPages]]; 
proc[LOOPHOLE[SegmentDefs.MapFileSegment]] ; 
proc[LOOPHOLE[SegmentDefs.CloseFile]]; 
p roc [ LOOPHOLE [D iskKDDefs. CI OS eOiskKD]]; 
p roc [LOOPHOLE[ImageDefs.UserCleanup Proc]]; 
p roc[ LOOPHOLE [DirectoryDefs . EnumerateOi rectory]] ; 
proc [ LOOPHOLE [ S tr eamDef s.Cre a teWordSt ream]]; 
proc [ LOOPHOLE [StringDefs.Equival en tString]]; 
proc [ LOOPHOLE [ Loads t at eDefs. InputLoadState]] ; 
END; 

SwapOutMakelmageCode: PROCEDURE = 
BEGIN OPEN FrameDefs; 

SwapOutCode[Global Frame[MakeImageUt ilDef s .AddFileRequest]]; 
SwapOuLCode[GlobalFrame[BcdTableDefs.Al locate]]; 
SwapOutCode[GlobalFrame[BcdTabDefs . FindString]] ; 
SwapOutCode[Globairrame[loaderBcdUt i IDef s . EnumerateModuleTable]] ; 
SwapOutCode[ Global Frame [I oadSlateDefs . InputLoadState]] ; 
SwapOutCode[Global Frame[BcdMergeDef s .MergeBcd]] ; 
END; 
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Installlmage: PROCEDURE [name: STRING, merge, code, symbols: BOOLEAN] = 
BEGIN OPEN AUoFileDefs, DiskOefs; 
AV: POINTER = REGISTER[AVreg] ; 

SD: POINTER TO ARRAY [0..256) OF UNSPECIFIED = REGISTER[SDreg] ; 
GFT: POINTER = REGISTER[GFTreg] ; 
WDC: CARDINAL; 
diskrequest: DiskRequest; 
Ipn: PageNumber; numChars: CARDINAL; 
savealloctrap , savealloc, saveswaptrap: ControlLink; 
auxtrapFrame: FrameHandle; 
nextpage: PageNumber; 

swappedinfilepages , swappedoutf ilepages , datapages: PageCount ♦- 0; 
SwapOutErrorStrategy : SegmentDef s .SwapStrategy ♦- [1 ink : ,proc:SwapOu tError] ; 
mapindex: MapIndexType ♦- 0; 
maxFileSegPages: CARDINAL *- 0; 
endofdatamap index : MapIndexType; 
ptSeg: DaLaSegmentHandle ; 
HeaderSeg: DataSegmentHandle; 
Image: POINTER TO ImageHeader; 
imageDA, HeaderOA: vDA; 
ImageFile: FileHandle; 
diskKD: F i leSegmen tHandl e ; 
saveAP, saveRP: ProcessRegister; 
saveDIW: WORD; 
savePV: ProcessVector; 
beds treampage : PageNumber; 
bcdnames: DESCRIPTOR FOR ARRAY OF STRING; 
beds: DESCRIPTOR FOR ARRAY OF Bcditem; 
Bedltem: TYPE ^ RECORD [ 

bcdseg: F i 1 eSegmen tHandl e , 

unresolved, exports: BOOLEAN]; 
eon, nbcds: Configlndex; 
time: Al toFil eDef s . TIME ; 
initgft : LoadStateGFT; 
net: CARDINAL <- Mi scDef s . GetNetworkNumber[] ; 

SaveProcesses: PROCEDURE » 
BEGIN OPEN ProeessDefs; 
saveAP «- APt; 
saveRP <- RPt; 
saveDIW ♦- DlWt; 
savePV ^ PVt; 
DlWt *- 2; 

WakeupsWa i tingt <- 0; 
END; 
RestoreProcesses: PROCEDURE = 
BEGIN OPEN ProeessDefs; 
ActiveWordt ♦- APt <- saveAP; 
WakeupsWa i tingt ♦- RPt ♦- saveRP; 
DlWt ♦- saveDIW; 
PVt" ♦■ savePV; 
END; 
EnterMapItem: PROCEDURE [vmpage: PageNumber, pages: PageCount] = 
BEGIN 

Image. map[mapindex] ♦- Mapltem[vmpage, pages] ; 
mapindex ♦- mapindex + 1; 
END; 
CountFileSegments: PROCEDURE [s: F i leSegmentHandle] RETURNS [BOOLEAN] = 
BEGIN 

IF -symbols AND s . el ass = symbol s TflEN RETURN[FALSE] ; 
IF s ^ diskKD THEN 
BEGIN 

[] ^ BootDefs.PositionSeg[s , FALSE]; 
IF s.swr.ppedin THEN 
BEGIN 

swappedinfilepages ♦- swappedinfilepages + s. pages; 
IE s.class=code THEN 

maxf i leSegPages ♦- MAX[maxE i leSegPages . s. pages]; 
END 
ELSE 
BEGIN 

swappedoutf i lepages ♦- swappedoutf i 1 epages + s. pages; 
maxf i leSegPages ♦- MAX[maxE i 1 eSegPages , s. pages]; 
END 
END; 
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RETURN[FALSE]; 
END; 
CountDataSegments: PROCEDURE [s: DataSegmentHandle] RETURNS [BOOLEAN] » 
BEGIN 

IF s # bufferseg THEN datapages *- datapages + s. pages; 
RETURN[FALSE]; 
END; 
MapOataSegments: PROCEDURE [s: DataSegmentHandle] RETURNS [BOOLEAN] ^ 
BEGIN 
IF s # HeaderSeg AND s # bufferseg THEN 

BEGIN 

EnterMapItem[s.\/Mpage, s. pages]; 

nextpage ♦- nextpage + s. pages; 

END; 
RETURN[FALSE]; 
END; 
WriteSwappedIn: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] = 
BEGIN 
IF s.swappedin THEN 

BEGIN 

imageDA ^ TransferFneSegment[buf f er, s, ImageFile, nextpage. imageDA]; 

EnterMapItem[s . VMpage, s. pages]; 

nextpage ♦- nextpage + s. pages; 

END; 
RETURN[FALSE]; 
END; 
WriteSwappedOutBcd: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] = 
BEGIN 
IF -s.swappedin AND s. class = bed THEN 

BEGIN 

imageDA «- TransferFi1eS8gment[buffer, s, ImageFile, nextpage, imageDA]; 

nextpage ♦- nextpage + s. pages; 

END; 
RETURN[FALSE]; 
END; 
WriteSwappedOutCode: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] = 
BEGIN 
IF -s.swappedin AND s. class = code THEN 

BEGIN 

imageDA ♦- TransferFi leSegment[buf fer , s, ImageFile, nextpage, imageDA]; 

nextpage ♦• nextpage + s. pages; 

END; 
RETURN[FALSE]: 
END; 
WriteSwappedOutNonCode: PROCEDURE [s: FileSegmentHandle] RETURNS [BOOLEAN] = 
BEGIN 

IF -symbols AND s . cl ass=symbol s THEN RETURN[FALSE] ; 
IF -s.swappedin AND s. class ff code AND s. class # bed AND s ^ diskKD THEN 

BEGIN 

imageDA <- TransferF i leSegment[buf fer , s, ImageFile, nextpage, imageDA]; 

nextpage ♦- nextpage + s. pages; 

END; 
RETURN[FALSE]; 
END; 
SaveBcd: PROCEDURE [config: Configlndex, addr: BcdAddress] RETURNS [BOOLEAN] = 
BEGIN 

bcds[config].bcdseg ♦- LoadStateDef s .BcdSegFromLoadState[conrig] ; 
RETURN [FALSE]; 
END; 

SD[sAddrileRequest] ♦- AddF ileReques t ; 

ImageFile ^ Newf i le[name , Read+Wr i te+Append , Def aul tVers ion] ; 

diskKD ♦- KDSegment[]: 

ProcessDefs.DisableTnterrupts[]; 

WDC ^ ControlDefs.ReadWDC[]: 

CoreSwapDefs .SetLevel[-l]; 

SaveProcesses[]; 

ImageDef s .UserC1eanupProc[Save]; 

- handle beds 

initgft ♦- DrSCRTPTOR[Sys temOefs . All oca teSegmen t[SD[sGFTl eng Lh]] , SD[sGrTl. englh] ] : 
beds t ream *■ StreamDers . NewWordStream["make image . sera tch$" , Read+Wr i te+Append] ; 
nbcds ♦- LoadStateDefs. Tnputl oadStatef] : -- bring it in for first time 
bcdnames ♦- Ge LBcdF i 1 eNames[nbcds] ; 
nbcds ^ IF merge THEN 1 ELSE nbcds; 
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beds ^ DESCRIPTOR[GetSpace[nbccls*SIZE[BcclItem]], nbcds]; 
bcdstreampage ♦- 0; 

InitLoadStateGFT[initgrt, merge, nbcds]; 
IF merge THEN 
BEGIN 

MergeAnBcds[initgf t, code, symbols, bcdnames]; 

[bcdstreampage, bcds[0] .bcdseg] ^ NewBcdSegmentFromStream[bcds tream, bcdstreampage]; 
END 
ELSE 
BEGIN 

[] *- LoadStateDefs.EnumerateLoadStateBcds[recentlast, SaveBcd]; 
FOR con IN [0. .nbcds) DO 

MergeABcd[con, initgft, code, symbols, bcdnames]; 
[bcdstreampage, bcds[con] .bcdseg] ♦- 

NewBcdSegmentFromStream[ beds tream, bcdstreampage] ; 
FNOLOOP; 
END; 
bed stream. destroy [beds tream] ; 
- Loads tateDers. Re leaseLoadState[]; 
IF merge THEN PatchUpGFT[] ; 

[] *- SystemDefs.PruneHeap[]; 

SetupAuxStorage[]; 

EnumerateNeededModu1es[LoekCodeSegment]; 

HeaderOA *- DAof Page[ImageFne , 1]; 

-- [] ^ FrameDefs . EnumerateG1oba1Frames[SwapOutUn1ockedCode] ; 

-- [] ♦- EnumerateFi 1eSegments[SwapOutUnlocked]; 

-- set up private frame allocation trap 

ControlDefs. Free[ControlDers . Anoc[0]] ; -- flush large frames 

savealloctrap ^ SD[sAnocListEmpty] ; 

SD[sAnocL istEmpty] <- auxtrapFrame ♦• auxtrap[]; 

savealloc ♦- SD[sAnoc]; SO[sAnoc] ♦• myalloc; 

REGISTER[A\/reg] <- DataSegmentAddress[AuxSeg] ; 

BufferPages ♦■ maxbcdsize + LoadStateOef s .GetLoadState[] .pages ; 

bufferseg ♦- NewDataSegment[Def auUBase , BufferPages]; 

[] ♦- EnumerateDataSegmen ts[CountDataSegments] ; 

swappedinf ilepages <- swappedou tf ilepages ♦• 0; 

[] ♦• EnumerateFneSegments[CountFi 1 eSegmen ts] ; 

SetEndOfFile[ImageFile, 

datapages + swapped infi lepages + swappedoutf i lepages + Fi rstlmageDataPage - 1, 

Al toDef s .BytesPerPage]; 
[] *- DiskKDDefs.CloseDiskKD[]; 

HeaderSeg «- NewOataSegment[Def auUBase, 1]; 
Image ♦- DataSegmentAddress[MeaderSeg] ; 
MiscDef s . Zero [Image, SIZE [ImageHeader]] ; 

Image, vers ion ident <- ImageDef s .Vers ionID; Image . options *- 0; 
-Image, state. stk[0] ♦• Image, state . stk[ 1] ♦• 0; 
Image, state, stkptr ♦- 2; 
Image, state. X *■ REGISTER[Lreg] ; 
Image. av ♦- AV; 
Image. gft ♦- GFT; 
Image, sd ♦- SD; 
time *■ MiscDefs.DAYTIME[]; 
Image .version *• BcdDef s .\/ersionStamp[ 

time: T imeOefs . PackedT ime[l owb i ts : time. low, highbits: time. high], 

zapped: FALSE, 

net: net, 

host: OsStaticDef s .OsStatics.Seri a 1 Number] ; 
Image, creator <-" ImageDef s . ImageVers ion[] ; -- version stamp of currently running image 

nextpage *- F irs tImageDataPage ; 

[] *- FnumerateOataSegments[MapDataSegments] ; 

IF nextpage ^ F i rs t ImageDataPage+da tapages THEN ERROR; 

endo r da tamap index ♦- map index; 

-- now disable swapping 
saveswaptrap ♦- SD[sCsegSwappedOu t] ; 
SD[sCsegSwappedOu t] *- SwapTrapError ; 
AddSwapStrategy[QSwapOu tf rrorS trategy ] ; 
imageOA ♦- DAof Page[ ImagoF i 1e . nextpage]; 
buffer *~ DataSegmentA(Jdress[burf erseg] ; 
[] ♦- Enumera teF i leSeginen ts[Wr i teSwappedIn] ; 
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IF nextpage U FirstlmageDataPage+datapages+swappedinf ilepages THEN ERROR; 
[] ^ EnumerateFileSegments[WriteSwappeclOutBcd]; 
[] ♦• EnumerateFileSegments[WriteSwappedOutCode] ; 
[] ^ EnumerateFiloSegmentsCWriteSwappedOutNonCode]; 
DeleteOataSegment[bufferseg]; 

SegmentD8fs.C1oseFile[ImageFne I SegmentDef s .FileError => RESUME]; 
ImageFile. write *- ImageFile. append ♦- FALSE; 

- [] ♦• LoadStateDefs.InputLoadState[]; 
FOR con IN [0. .nbcds) DO 

[bcds[con]. unresolved, bcds[con] . exports] ♦- MapSegmentsInBcd[initgft, con, bcds[con] . bcdseg] ; 
ENDLOOP; 

- Loads t at eDefs .ReleasGLoadState[]; 

diskrequest ♦- DiskRequest[ 
ca: auxanoc[datapages+3] , 
da: auxanoc[datapages+3] , 
fixedCA: FALSE, 
fp: auxanoc[SIZE[FP]]. 
firstPage: Fi rstlmageOataPage-l, 
last Page: FirstlmageOataPage+datapages-l , 
action: WriteD, 
lastAction: WriteD, 
signalCheckError: FALSE, 
option: update[BFSDef s .GetNextDA]] ; 

di skrequest. fpt ♦- ImageFi 1e. fp ; 

[] ♦- SegmentDefs.EnumerateFi1eSegments[BashHint]; 

[] ♦- SegmentDef s.EnumerateFi les[BashFile]; 

(diskrequest . ca+l)i' ♦- Image; 

Fi n InCAs[Image, endofdatamapindex , diskrequest . ca+2] ; 

Mi scDefs.SetBlock[ diskrequest. da, fill inOA, datapages+3] ; 

(diskrequest. da+l)t ♦- HeaderDA; 

[1pn,numChars] ♦• BFSOef s .ActOnPagesCLOOPHOLE[Qdiskrequest]] ; 
IF Ipn # OR nvmChars // THEN 

BEGIN 

DisplayHeadert ♦- SD[sGoingAway] ♦- 0; 

Imag eDefs .StopMesa[] ; 

END; 
REGISTER[AVreg] *- AV; 
REGISTER[SDreg] ^ SO; 
REGISTCR[GFTreg] ^ GFT; 
ControlDefs.WriteWDC[WDC]; 
SD[sA11ocListEmpty] ♦- saveal 1 octrap ; 
SD[sAnoc] ♦- savealloc; 
SD[ControlDefs.sAddFi1eRequest] ♦- 0; 
Free[aux trap Frame] ; 
De1eteDataSegment[HeaderSeg] ; 

ptSeg ^ NewDataSegment[PageFromAddress[ptPointert], 1] ; 
[] *- niskDefs.ResetDisk[]; 
DiskKODefs. Initial izeDiskKD[]; 
Boo tPageTable[ Imag eF ile, ptPointert]; 
De1eteDataSegment[ptSeg] ; 

-- turn swapping back on 

RemoveSwapStrategy[@SwapOutErrorStrategy]; 
SD[sCsegSwappedOut] ♦- saveswap trap ; 

RestoreProcesses[]; 

ProcessDers.rnableInterrupts[]; 

ProcessFileRequests[]; 

[] *- I oadStateDefs. InputLoadState[]; 
I oadStateDefs. Re set I- oadState[ initgft]; 
FOR con IN [0. .nbcds) DO 

I oadS taLeDefs . UpdateLoadS ta te[ 

con, bcds[con] . bcdseg . bcds[con] . unresol ved , bcds[con] . exports] ; 

Deletef i leSogmen t[bcds[con]. bcdseg]; 

fNOI OOP: 
I ondS la t eDefs .ReloaseloadState[]: 
Sys tomOef s . freeSogmen t[BASF[ initgft]]; 
He I e teDataSegmenL[AuxSeg] ; 

rreeAl]Space[] ; 
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EnumerateNeedeclModules[UnlockCodeS8gment]; 

SwapOutMakeImageCode[]; 

ImageOef s. Use rC lean upP roc [Res tore]; 

RETURN 

END; 

-- auxiliary storage for frames and non-saved items 
AuxSeg: DataSegmentHandle; 
freepointer: POINTER; 
wordsleft: CARDINAL; 

SetupAuxStorage: PROCEDURE = 
BEGIN 

av : POINTER; 
i: CARDINAL; 

AuxSeg ♦- NewDataSegment[Def aul tBase , 10] ; 
av ♦- freepointer ♦- DataSegmentAddress[AuxSeg] ; 
wordsleft ♦- 10*A1 toDef s . PageSize; 
[] ♦- auxanoc[Allocation\/ectorSize] ; 
freepointer ♦■ f reepointer+3 ; wordsleft *- wordsleft-3; 
FOR i IN [0. .maxallocslot) DO 
(av+i )t ♦- (i + l)*4+2; 
ENDLOOP; 
(av+6)t ♦- (av+maxallocslot)t *- (av+maxallocslot+l)t ♦- 1; 
END; 

auxalloc: PROCEDURE [n: CARDINAL] RETURNS [p: POINTER] = 
BEGIN -- allocate in multiples of 4 words 
p ♦- freepointer; 

n ♦■ InlineDefs.BITAND[n+3,177774B]; 
freepointer ♦- f reepointer+n ; 
IF wordsleft < n THEN ImageDef s . PuntMesa[] ; 
wordsleft ♦- wordsleft-n; 
RETURN 
END; 

myalloc: PROCEDURE [n: CARDINAL] RETURNS [p: POINTER] - 
BEGIN -- replaces the normal alloc procedure 
IF n >= maxallocslot THEN ImageDefs . PuntMesa[] ; 
p <- auxal loc[FrameDefs . FrameSize[n]] + 1; 
(p-l)t ♦• n; 
RETURN 
END; 

framevec: ARRAY [0..18] OF INTEGER = 

[7.11,15.19,23.27,31,39.47,55,67,79,95,111.12 7.147,171.199,231]; 

pgft: TYPE = POINTER TO ARRAY [0..0) OF ControlDef s . GFTItem; 

auxtrap: PROCEDURE RETURNS [myframe: FrameHandle] = 
BEGIN 

state: StateVector; 
newframe: FrameHandle; 
eventry: POINTER TO EntryVectorl tern; 
fsize, findex: CARDINAL; 
newG: Gl obal FrameHandl e ; 

dest, tempdest: representation ControlLink; 
alloc: BOOLEAN; 
gfi: GFTIndex; 
ep: CARDINAL; 
pcsegp: TYPE = POINTER TO CsegPrefix; 

myTrame ♦- REGISTER[Lreg] ; 

state. X *- my frame . return! ink ; state. Y ♦- 0; 

state , ins tby te*-0; 

state . stk[0]*-my frame: 

state. stkptr«-l ; 

ProcessDefs.DisableInterrupts[]: 

DO 

Processnefs.FnableInterrupts[]; 
TRANSFER WTTfl state; 

state^-STATE ; -- interrupts turned off by trap 
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myframe. return! ink ♦• state. Y; 
dest ♦- state. stk[state.stkptr-l]; 
state. stkptr ♦• state, stkptr-1; 

tempdest *- dest; 
DO 

SELECT tempdest. type FROM 
frametag => 

BEGIN 

alloc ^ TRUE; 

findex ^ LOOPHOLE[tempdest . CARDINAL]/4; 

EXIT 

END; 
procdesctag => 

BEGIN OPEN proc: LOOPHOLE[tempdest , ProcDesc]; 

[gftindex: gfi, epoffset: ep, tag:] ♦- proc; 

[frame: newG. epbase: findex] ^ LOOPHOLE[REGISTER[GFTreg] . pgft][gfi]; 

eventry ♦- @LOOPHOLE[newG. codebase, pcsegp] . EntryVector[f index+ep] ; 

findex ♦- eventry .framesize; 

alloc ♦• FALSE; 

EXIT 

END; 
indirecttag => tempdest ♦• MEMORY[LOOPHOLE[tempdest]] ; 
ENDCASE => ImageDefs.PuntMesa[]; 
ENDLOOP; 

IF findex >= maxallocslot THEN ImageDef s . PuntMesa[] 
ELSE 

BEGIN 

fsize *• f ramevec[f index]+l; -- includes overhead word 

newframe ♦■ LOOPHOLE[f reepointer+l] ; 

freepointert ♦- findex; 

freepointer ^ freepointer + fsize; 

IF wordsleft < Tsize THEN ImageDef s . PuntMesa[] ELSE wordsleft ^ wordsleft - fsize; 

END; 

IF alloc THEN 
BEGIN 

state. X ♦- myf rame . returnl ink ; 
state. stk[state. stkptr] ^ newframe; 
state. stkptr «- state . stkptr+1 ; 
END 
ELSE 
BEGIN 
IF dest. type # indirecttag THEN 

BEGIN 

state. X ♦- newframe; 

newframe . accessl ink ♦- newG; 

newframe. pc ♦- eventry . in Hi alpc; 

newframe . returnl ink ♦- myframe . returnl ink ; 

END 
ELSE 

BEGIN 

IF findex = maxallocslot THEN ImageDefs . PuntMesa[] ; 

state. X ♦- dest; 

newframe. accessl ink ♦- (REGISTCR[A\/reg] + f index)t ; 

(REGISTER[A\/reg] + f index)t ♦- newframe; 

END; 
state. Y ♦• myf rame . returnl ink ; 
END; 

ENDLOOP; 
END; 

PageTable: TYPC = MACHINE DEPENDENT RECORD [ 

fp: AUof i leDefs.CFP, 

firstpage: CARDINAL, 

table: ARRAY [0..1) OF D i skDef s . DA] ; 
ptPoinler: POTNTfR TO POINTER TO PageTable = I OOPHOLE[24B] ; 

BootPageTable: PROCfDURC [f i 1 e : f i 1 eHandl e, pt:POINTER TO PageTable] = 
BfGIN OPEN Al loFileDefs; 
lastpage: PagoNumber; 
PlugHint: PROCLDURf [seg : F i 1 eSegmen tHand 1 e] RETURNS [BOOLEAN] = 

BEGIN 

IF seg. file = file AND seg. base IN[p t . f irs tpage . . 1 asLpage] THEN 
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seg.hint ♦- FileHint [ 
page: seg.base, 
da: DiskDefs.Virtua1DA[pt.table[seg.base-pt.f irstpage]]]; 

RETURN[FALSE] 

END; 
DropFileRequest[f ile]; 
file. open *- TRUE; 

file.fp ♦• FP[seria1: pt.fp. serial , leaderDA: pt . fp, leaderDA] ; 
FOR lastpage «- 0, lastpage+1 
UNTIL pt.table[1astpage] = DiskDef s .DA[0 ,0 ,0 ,0,0] 

DO NULL ENDLOOP: 
IF lastpage = THEN RETURN; 
lastpage ♦- lastpage+pt . f irstpage-1; 
[] <- EnumerateFileSeginents[PlugHint]; 
RETURN 
END; 

-* The driver 

Makelmage: PUBLIC PROCEDURE [name: STRING, symbol sToImage: BOOLEAN] = 
BEGIN 

s: StateVector; 
Ini tFileRequest[] ; 
InitSpace[] ; 

IF -symbol sToImage THEN RequestSymbol Fi les[] ; 
s,stk[0] ♦- REGISTER[Greg]; 
s.stkptr ♦• 1; 
s. instby te ♦• 0; 
s.X ♦• FrameDefs .SwapOutCode; 
s.Y ♦- GetReturnLink[] ; 
InstalllmageCname, TRUE, TRUE, FALSE]; 
RETURN WITH s; 
END; 

MakeUnMergedlmage: PUBLIC PROCEDURE [name: STRING, symbolsToImage: BOOLEAN] 
BEGIN 

s: StateVector; 
Ini tFileRequest[] ; 
InitSpace[]; 

IF -symbolsToImage THEN RequestSymbol F i 1 es[] ; 
s.stk[0] ^ REGISTER[Greg]; 
s. stkptr ♦- 1 ; 
s. instbyte ♦• 0; 
s.X *• FrameDefs .SwapOutCode; 
s.Y ♦- GetReturnLink[]; 

Instanimage[name, FALSE, TRUE. FALSE]; 
RETURN WITH s; 
END; 

END. 



